home *** CD-ROM | disk | FTP | other *** search
/ Amiga Games: Greatest Hits 1996 / Amiga Games: Greatest Hits 1996.iso / archive / spiele / publicdomain / cosmicdealers.lha / CosmicDealers / aaa < prev    next >
Text File  |  1980-10-14  |  49KB  |  1,642 lines
  1. DATA "Terra      ","techn.",10,4200,20,19490,7,8740,6,13750,11,15520,15,37350,6345,"Menschen",5,"Esperanto","T-Mark","Demokratie"
  2. DATA "Arkon II   ","techn.",16,19500,5,3270,11,24130,4,30770,0,0,0,0,6537,"Lemurer",5.5,"Interkosmo","Dallor","Demokratie"
  3. DATA "Gatas      ","techn.",9,33300,19,2510,13,28310,20,22130,18,20500,0,0,7380,"Blues",10,"Interblues","Banuku","Militärrg."
  4. DATA "Ras Algethi","Wasser",15,5290,11,13780,5,38110,2,30770,0,0,0,0,12407,"Blokaner",13.7,"Blulub","Urmo","Monarchie"
  5. DATA "Antares    ","Wasser",2,3270,4,38110,11,51390,0,0,0,0,0,0,4876,"Serats",1.2,"Querz","Palawaum","Anarchie"
  6. DATA "Pollux     ","Wasser",1,13750,7,3200,17,32740,12,14700,0,0,0,0,7342,"Wubsch",7.3,"Sollub","Pulmul","Demokratie"
  7. DATA "Kastor     ","Wasser",20,13580,14,4050,6,3200,1,8740,0,0,0,0,6743,"Mutrol",5.5,"Trunji","Lorks","Anarchie"
  8. DATA "Sirius     ","Wasser",14,16520,13,26710,17,59320,0,0,0,0,0,0,3468,"Rüdies",3.1,"Pilab","Mühl","Militärrg."
  9. DATA "Markab     ","Urwald",15,24390,18,12510,3,33300,19,31280,0,0,0,0,7645,"Burgas",6.3,"Kabar","Pongo","Monarchie"
  10. DATA "Cepheus    ","Urwald",18,5730,1,4200,20,6010,15,40100,0,0,0,0,4711,"Fremen",3.9,"Lafar","Kruta","Demokratie"
  11. DATA "Gemma      ","Urwald",1,15520,16,15300,4,13780,2,24130,5,51390,0,0,10328,"Gemini",5,"Pathafo",Banutz","Demokratie"
  12. DATA "Denebola   ","Urwald",17,15178,6,14700,16,6700,0,0,0,0,0,0,12005,"Vuhlu",8.9,"Brak","Musgaz","Anarchie"
  13. DATA "Aldebaran  ","Urwald",8,26710,14,42380,3,28310,19,34370,0,0,0,0,2091,"Awikaner",0.93,"Mekino","Raltor","Anarchie"
  14. DATA "Prokyon    ","Urwald",8,16520,17,28740,7,4050,20,13890,13,42380,0,0,15243,"Aloholiden",21,"Vortan 3.0","InterMark","Zentralis."
  15. DATA "Atair      ","Wüste",9,24390,18,45370,1,37350,4,5290,10,40100,0,0,3769,"Stuser",0.99,"Gefah","Shroth","Militärrg."
  16. DATA "Arktur     ","Wüste",12,6700,2,19500,11,15300,0,0,0,0,0,0,2561,"Gomlins",3.9,"Isotan","Krill","Anarchie"
  17. DATA "Regulus    ","Wüste",14,28740,6,32740,12,15178,8,59320,0,0,0,0,2729,"Norlen",4.9,"Glurma","Nistel","Demokratie"
  18. DATA "Sirrah     ","Wüste",9,12510,15,45370,10,5730,3,20500,0,0,0,0,7459,"Gallner",9.1,"Gnahl","Holmeh","Monarchie"
  19. DATA "Mira       ","Wüste",9,31280,3,2510,13,34370,0,0,0,0,0,0,1769,"Ceriols",0.3,"Manath","Openal","Demokratie"
  20. DATA "Algol      ","Wüste",3,22130,14,13890,7,13580,1,19490,10,6010,0,0,9284,"Morpler",1.3,"Kopel","Pomihl","Militärrg."
  21.  
  22. DATA "Plutonium","Erze","Edelsteine","Edelmetalle","Legierungen"
  23. DATA "Maschinen","Industriegüter","Waffen","Elektronik","Treibstoffe"
  24. DATA "Rauschgifte","Wasser","Nahrung","Tiere","Sklaven","Edelhölzer"
  25. DATA "Legierungen","Maschinen","Industriegüter","Elektronik"
  26. DATA "Treibstoffe","Rauschgifte","Wasser","Nahrung","Tiere"
  27. DATA "Maschinen","Industriegüter","Waffen","Treibstoffe","Rauschgifte"
  28. DATA "Wasser","Nahrung","Tiere","Sklaven","Edelsteine"
  29. DATA "Edelhölzer","Edelmetalle","Elektronik"
  30. DATA "Maschinen","Industriegüter","Waffen","Treibstoffe","Erze"
  31. DATA "Plutonium","Edelsteine","Edelmetalle","Sklaven","Nahrung","Wasser"
  32.   
  33. DATA "Sie gerieten in einen Asteroidensturm! Ihr Schiff wurde am Heck"
  34. DATA "schwer beschädigt. Die Abschlepp- und Reparaturkosten belaufen"
  35. DATA "sich auf 250 T-Mark. ",-250
  36. DATA "Raumpiraten fielen über Sie her und plünderten Ihre Lagerräume!"
  37. DATA "Es entstand ein Schaden von ca. 350 T-Mark."
  38. DATA " ",-350
  39. DATA "Sie gerieten in Brüderkämpfe der Blues! Schwere Impulsgeschosse"
  40. DATA "überlasteten Ihren Schutzschirm und beschädigten Ihr Raumschiff,"
  41. DATA "bevor Sie in den rettenden Linearraum flüchten konnten.",-200
  42. DATA "Auf Ihrem Raumschiff ist die Weltraumtollwut ausgebrochen!"
  43. DATA "Die Entwicklung eines Imunpräparates verschlang große Forschungs-"
  44. DATA "kosten. Weiter starben 5 Besatzungsmitglieder.",-350
  45. DATA "Sie haben im Intergalaktischen Lotto gewonnen!"
  46. DATA "Ihr Gewinn beläuft sich in Hoehe von 300 T-Mark."
  47. DATA " ",300
  48. DATA "Sie wurden von den galaktischen Freihändlern zum Emporkömmling"
  49. DATA "des Jahres gewählt! Als Prämie zu dieser Auszeichnung erhalten"
  50. DATA "Sie einen Geldbetrag von 200 T-Mark.",200
  51. DATA "Ihr stinkreicher Erbonkel ist gestorben! Er, der Besitzer einer"
  52. DATA "der größten Raumschiffswerften der Galaxis vermacht Ihnen einen"
  53. DATA "Geldbetrag von 650 T-Mark.",650
  54. DATA "Während des Fluges entdeckten Sie ein altes,führerloses Raumschiff!"
  55. DATA "Beim Versuch das Schiff zu bergen, ereignete sich ein Unfall,"
  56. DATA "der jedoch nur Sachschaden verursachte.",-375
  57. DATA "Sie entdecken ein altes Raumschiff einer vergessenen Baureihe!"
  58. DATA "Als Prämie des terranischen Weltraummuseums für Alte und Neue Tech-"
  59. DATA "nologien erhalten Sie einen Betrag von 460 T-Mark",460
  60. DATA "Auf dem Weg zu Ihrem Reiseziel können Sie einem algethanischen"
  61. DATA "Händler, der eine Turbinenpanne hatte, Ersatzteile verkaufen"
  62. DATA "und bei der Raparatur behilflich sein. Er entlohnt Sie königlich.",450
  63. DATA "Aufgrund eines Navigationsfehlers geraten Sie leicht vom Kurs ab!"
  64. DATA "Bei der Suche nach dem alten Kurs stranden Sie auf einem unbekannten"
  65. DATA "Planeten. Dort finden Sie in einer alten Station viele Wertpapiere.",374
  66. DATA "Sie werden von rebellierenden Stusern angegriffen!"
  67. DATA "Nach einem kurzen aber schweren Gefecht gelingt es Ihnen das feind-"
  68. DATA "liche Schiff zu entern und zu berauben.",278
  69. DATA "Auf Ihrem Flug entdecken Sie durch einen Zufall eine völlig"
  70. DATA "vergessene Welt. Für diese Errungenschaft wird Ihnen viel Ehre"
  71. DATA "zuteil, und natürlich werden Sie auch fürstlich honoriert.",390
  72. DATA "Sie sind dem Glücksspiel verfallen!"
  73. DATA "Als wenn das nicht schon genug wäre, verlieren Sie natürlich"
  74. DATA "ständig. Mitlerweile haben Sie schon fast 500 T-Mark verloren",-480
  75. DATA "Sie haben in einem merkabanischen Preisausschreiben gewonnen!"
  76. DATA "Ihr Gewinn beläuft sich in Höhe von 100 T-Mark."
  77. DATA " ",100
  78. DATA "Nach langer und schwerer Krankheit ist Ihre Erbtante verschieden!"
  79. DATA "Nach Ihrem Testament hinterlässt Sie Ihnen einen riesigen Berg"
  80. DATA "Schulden. Sie verlieren etwa 600 TM Ihres sauer Ersparten.",-600
  81. DATA "Ihre Nahrungsmittel sind Ihnen ausgegangen!                   "
  82. DATA "Der Einkauf bei einem Versorgungsschiff                       " 
  83. DATA "kostet Sie 300 T-Mark                             ",-300
  84. DATA "Ihr Vorrat an Wasser ist erschöpft!                           "
  85. DATA "Ein freundlicher gatanischer Händler verkauft Ihnen           "
  86. DATA "einen Teil seines eigenen Speichers.             ",-300
  87. DATA "Sie haben vergessen Treibstoff zu kaufen!                     "
  88. DATA "Das auftanken am galaktischen Serverschiff kostet Sie einen   "
  89. DATA "Betrag von 300 T-Mark                            ",-300
  90.  
  91. DATA 322,105,322, 82,322,105,384, 76,322,105,390, 95
  92. DATA 322,105,365,118,322,105,230,125,322,105,120, 74
  93. DATA 400, 30,570, 34,400, 30,384, 76,400, 30,260, 30
  94. DATA 400, 30,380, 10,100,162, 54,152,100,162,283,155
  95. DATA  54,152,116,100,116,100,230,125,116,100,120, 74
  96. DATA 120, 74,310, 59,120, 74,260, 30,260, 30,380, 10
  97. DATA 230,125,283,155,283,155,345,154,322, 82,310, 59
  98. DATA 506, 98,496,157,506, 98,578, 68,506, 98,390, 95
  99. DATA 506, 98,384, 76,506, 98,570, 34,570, 34,578, 68
  100. DATA 496,157,345,154,496,157,365,118,345,154,365,118
  101. DATA 365,118,390, 95,390, 95,384, 76,260, 30,310, 59
  102. DATA 100,162,116,100,100,162,230,125,230,125, 54,152
  103. DATA 120, 74,322, 82,322, 82,384, 76,310, 59,400, 30
  104. DATA 380, 10,570, 34,578, 68,496,157
  105.     
  106. DATA 322,105,12,1,15,39,"Terra",400,30 ,15,1,6 ,48,"Gatas"
  107. DATA 100,162,12,1,22,10,"Arkon II",322 ,82 ,9 ,4,12,38,"Cepheus"
  108. DATA 310,59 ,10,2,9 ,37,"Sirrha",380 ,10 ,4 ,2,3 ,46,"Mira"
  109. DATA 260,30 ,15,4,6 ,30,"Markab",120 ,74 ,8 ,2,9 ,9 ,"Atair"
  110. DATA 116,100,25,3,15,10,"Ras Algethi",54 ,152,11,3,21,4 ,"Antares"
  111. DATA 230,125,21,4,18,27,"Gemma",283 ,155,5 ,2,21,34,"Arktur"  
  112. DATA 345,154,24,4,22,41,"Denebola",365 ,118,15,3,17,44,"Pollux"
  113. DATA 390,95 ,13,3,14,47,"Kastor",384 ,76 ,7 ,2,10,50,"Algol"
  114. DATA 506,98 ,31,4,15,61,"Prokyon",496 ,157,23,2,22,60,"Regulus"
  115. DATA 578,68 ,7 ,3,10,70,"Sirius",570 ,34 ,4 ,4,6 ,67,"Aldebaran"
  116.  
  117. DATA "Plutonium"     , 80, 40,"Erze"       , 75, 30 
  118. DATA "Edelsteine"    , 85, 30,"Edelmetalle", 60, 40  
  119. DATA "Legierungen"   , 35, 50,"Maschinen"  , 35, 50 
  120. DATA "Industriegüter", 30, 40,"Waffen"     , 60, 80 
  121. DATA "Elektronik"    , 80, 60,"Treibstoffe", 25, 10
  122. DATA "Rauschgifte"   ,100,100,"Wasser"     ,  5, 10
  123. DATA "Nahrung"       ,  5, 10,"Tiere"      , 25, 30
  124. DATA "Sklaven"       , 60, 40,"Edelhölzer" , 45, 30
  125.  
  126. DATA "Legierungen"   , 60, 40,"Maschinen"  , 65, 40
  127. DATA "Industriegüter", 45, 30,"Elektronik" , 90, 80
  128. DATA "Treibstoffe"   , 25, 10,"Rauschgifte", 90,100
  129. DATA "Wasser"        ,  5,  0,"Nahrung"    ,  5, 10
  130. DATA "Tiere"         , 20, 20
  131.                            
  132. DATA "Edelsteine"    , 40, 30,"Edelmetalle"   , 45,30  
  133. DATA "Maschinen"     , 40, 40,"Industriegüter", 45,30
  134. DATA "Waffen"        , 80, 40,"Elektronik"    , 45,40
  135. DATA "Treibstoffe"   , 25, 10,"Rauschgifte"   , 90,60
  136. DATA "Wasser"        ,  5, 10,"Nahrung"       ,  5,10
  137. DATA "Tiere"         , 10, 20,"Sklaven"       , 35,50
  138. DATA "Edelhölzer"    , 40, 20
  139.  
  140. DATA "Plutonium"     , 35, 30,"Erze"          , 30,20
  141. DATA "Edelsteine"    , 60, 40,"Edelmetalle"   , 50,40  
  142. DATA "Maschinen"     , 40, 20,"Industriegüter", 45,30
  143. DATA "Waffen"        , 85, 50,"Treibstoffe"   , 15,10
  144. DATA "Wasser"        , 20, 20,"Nahrung"       , 20,20
  145. DATA "Sklaven"       , 35, 30
  146.                        
  147. Schirm:
  148.   CLEAR,60000&
  149.   SCREEN 1,640,200,4,2
  150.   WINDOW 1,,,0,1
  151.   GOSUB Rahmenfarbekarte
  152.   GOSUB Rahmen
  153.   mus=20:spieleranzahl=0:runde=0
  154.   
  155. Hauptprogramm:
  156.   GOSUB Neuesmenue
  157.   GOSUB Credits
  158.   GOSUB Geschichte
  159.   GOSUB Eingaben
  160.      
  161.   Laeufer:
  162.     runde=runde+1
  163.     RANDOMIZE TIMER
  164.     FOR yxc=1 TO spieleranzahl
  165.       RANDOMIZE TIMER
  166.       GOSUB Preiseeinlesen
  167.       GOSUB Verbindungen
  168.       GOSUB Spielfeld
  169.       GOSUB Aktion
  170.     NEXT yxc
  171.     GOSUB Speichern
  172.     GOSUB Laden
  173.   GOTO Laeufer:
  174.   
  175. Geschichte:
  176.   GOSUB Farbpalette
  177.   LOCATE 3,25:COLOR 6
  178.   PRINT "C o s m i c      D e a l e r s"
  179.   SOUND 300,.1,255,0
  180.   LOCATE 4,25
  181.   PRINT "------------------------------"
  182.   SOUND 300,.1,255,1
  183.   COLOR 3:LOCATE 6,5
  184.   PRINT " Wir schreiben das Jahr 7361. Der Wirtschaftsmittelpunkt der Galaxis"
  185.   SOUND 300,.1,255,2
  186.   LOCATE 8,5
  187.   PRINT " ist der Planet Terra. Ihre Aufgabe ist es, die wichtigsten Handels-"
  188.   SOUND 300,.1,255,3
  189.   LOCATE 10,5
  190.   PRINT " stützpunkte der Galaxis anzufliegen und durch geschicktes Handeln"
  191.   SOUND 300,.1,255,0
  192.   LOCATE 12,5
  193.   PRINT " Ihr Vermögen zu vergrößern, um schließlich in den galaktischen Rat"
  194.   SOUND 300,.1,255,1
  195.   LOCATE 14,5
  196.   PRINT " von Shamway VI aufgenommen zu werden."
  197.   SOUND 300,.1,255,2
  198.   LOCATE 19,5
  199.   COLOR 2
  200.   GOSUB Datenlesen
  201.   PRINT " Starten Sie nun ins Abenteuer  >> Cosmic Dealers << !"
  202.   SOUND 300,.1,255,3
  203.   GOSUB Warten
  204.   n=1:GOSUB Bildschirmscroll1
  205.   RETURN
  206.   
  207. Eingaben:
  208.   COLOR 2
  209.   GOSUB Vorabladen
  210.   IF nljn$="Ja" THEN RETURN
  211.   COLOR 2
  212.   GOSUB Anzahl
  213.   GOSUB Frage
  214.   GOSUB Nf
  215.   RETURN
  216.  
  217. Anzahl:
  218.   GOSUB Wunz
  219.   x1=540:y1=50:x2=106:y2=20:GOSUB Rahmen3
  220.     LOCATE 5,17:PRINT ">>    S  P  I  E  L  E  R  A  N  Z  A  H  L    <<"
  221.   x1=170:y1=130:x2=106:y2=100:GOSUB Rahmen3
  222.     LOCATE 15,1
  223.     PRINT PTAB(136)"1"; 
  224.   x1=262:y1=130:x2=198:y2=100:GOSUB Rahmen3 
  225.     PRINT PTAB(228)"2";
  226.   x1=354:y1=130:x2=290:y2=100:GOSUB Rahmen3
  227.     PRINT PTAB(320)"3"; 
  228.   x1=446:y1=130:x2=382:y2=100:GOSUB Rahmen3 
  229.     PRINT PTAB(412)"4";
  230.   x1=538:y1=130:x2=474:y2=100:GOSUB Rahmen3 
  231.     PRINT PTAB(504)"5";
  232.   RETURN
  233.  
  234. Wunz:
  235.   FOR i=1 TO 200
  236.     PSET (RND(1)*599+16,RND(1)*170+8),3
  237.   NEXT
  238.   RETURN
  239.  
  240. Frage:
  241.   spieleranzahl=1
  242.   LOCATE 15,1:COLOR 6:p=128:p2=122
  243.   PRINT PTAB(p)spieleranzahl;
  244.   LINE (122,108)-(154,122),4,b
  245.   LINE (123,108)-(153,122),4,b
  246.   LINE (p2-16,99)-(p2+50,131),4,b
  247.   LINE (p2-17,99)-(p2+49,131),4,b  
  248.  
  249.   Frage2:
  250.     a$=INKEY$
  251.     IF a$=CHR$(31) THEN GOTO Links
  252.     IF a$=CHR$(30) THEN GOTO Rechts
  253.     IF a$=CHR$(13) THEN LINE (16,8)-(615,178),1,bf:RETURN
  254.     GOTO Frage2
  255.   RETURN
  256.   
  257. Links:
  258.   IF spieleranzahl=1 THEN GOTO Frage2
  259.   COLOR 2:PRINT PTAB(p)spieleranzahl;
  260.   spieleranzahl=spieleranzahl-1
  261.   p=p-92
  262.   LOCATE 15,1:COLOR 6:PRINT PTAB(p)spieleranzahl;
  263.   LINE (p2,108)-(p2+32,122),1,b
  264.   LINE (p2+1,108)-(p2+32-1,122),1,b 
  265.   LINE (p2-16,99)-(p2+50,131),1,b
  266.   LINE (p2-17,99)-(p2+49,131),1,b   
  267.   p2=p2-92
  268.   LINE (p2,108)-(p2+32,122),4,b
  269.   LINE (p2+1,108)-(p2+32-1,122),4,b
  270.   LINE (p2-16,99)-(p2+50,131),4,b
  271.   LINE (p2-17,99)-(p2+49,131),4,b   
  272.   GOTO Frage2
  273.   
  274. Rechts:
  275.   IF spieleranzahl=5 THEN GOTO Frage2
  276.   LOCATE 15,1:COLOR 2:PRINT PTAB(p)spieleranzahl;
  277.   spieleranzahl=spieleranzahl+1
  278.   p=p+92
  279.   LOCATE 15,1:COLOR 6:PRINT PTAB(p)spieleranzahl;
  280.   LINE (p2,108)-(p2+32,122),1,b
  281.   LINE (p2+1,108)-(p2+32-1,122),1,b
  282.   LINE (p2-16,99)-(p2+50,131),1,b
  283.   LINE (p2-17,99)-(p2+49,131),1,b    
  284.   p2=p2+92
  285.   LINE (p2,108)-(p2+32,122),4,b
  286.   LINE (p2+1,108)-(p2+32-1,122),4,b  
  287.   LINE (p2-16,99)-(p2+50,131),4,b
  288.   LINE (p2-17,99)-(p2+49,131),4,b  
  289.   GOTO Frage2
  290.  
  291. Nf:
  292.   GOSUB Wunz
  293.   x1=400:y1=50:x2=230:y2=20:GOSUB Rahmen3
  294.   x2=150:y2=60:x1=482:y1=90:GOSUB Rahmen3
  295.   x2=150:y2=100:x1=482:y1=130:GOSUB Rahmen3
  296.   x2=150:y2=140:x1=482:y1=170:GOSUB Rahmen3
  297.   FOR vbn=1 TO spieleranzahl
  298.     LOCATE 5,35:COLOR 2:PRINT"Spieler  ";vbn
  299.     LOCATE 10,23:PRINT"Name        >  "+SPACE$(20)
  300.     LOCATE 15,23:PRINT"Schiffsname >  "+SPACE$(20)
  301.     LOCATE 20,23:PRINT"Firmenname  >  "+SPACE$(20)
  302.     hname$(vbn)=""
  303.     firm$(vbn)=""
  304.     schiffname$(vbn)=""
  305.     tgb$=""
  306.     FOR tzu=0 TO 10 STEP 5
  307.       IF tzu=0 THEN COLOR 2:LOCATE 20,23:PRINT"Firmenname  >":COLOR 6:LOCATE 10,23:PRINT"Name        >"
  308.       IF tzu=5 THEN COLOR 2:LOCATE 10,23:PRINT"Name        >":COLOR 6:LOCATE 15,23:PRINT"Schiffsname >"
  309.       IF tzu=10 THEN COLOR 2:LOCATE 15,23:PRINT"Schiffsname >":COLOR 6:LOCATE 20,23:PRINT"Firmenname  >"
  310.       
  311.       i=1:qay=0
  312.       WHILE i<=20  
  313.         a$=""      
  314.         
  315.         Taste:
  316.           a$=INKEY$
  317.           IF a$<>"" THEN GOSUB Tp
  318.           IF qay=0 THEN GOTO Taste
  319.       WEND
  320.    NEXT
  321.   NEXT
  322.   RETURN
  323.   
  324. Tp:  
  325.   IF a$=CHR$(13) THEN i=21:qay=1:GOSUB Uebergabe:RETURN                                          
  326.   IF a$=CHR$(8) AND i=1 THEN RETURN
  327.   IF a$=CHR$(8) THEN i=i-1:LOCATE 10+tzu,i+37:PRINT" ":tgb$=MID$(tgb$,1,LEN(tgb$)-1):RETURN
  328.   IF i=21 THEN BEEP:RETURN
  329.   LOCATE 10+tzu,i+37:PRINT a$:i=i+1:tgb$=tgb$+a$
  330.   RETURN 
  331.  
  332. Uebergabe:
  333.   IF tzu=0 THEN hname$(vbn)=tgb$:tgb$="":RETURN
  334.   IF tzu=5 THEN schiffname$(vbn)=tgb$:tgb$="":RETURN
  335.   IF tzu=10 THEN firm$(vbn)=tgb$:tgb$="":RETURN
  336.  
  337. Vorabladen:
  338.   LINE (16,8)-(615,178),1,bf
  339.   GOSUB Wunz
  340.   x1=540:y1=50:x2=106:y2=20:GOSUB Rahmen3
  341.   COLOR 2:LOCATE 5,26:PRINT"Wollen Sie ein Spiel nachladen?"
  342.   x1=240:y1=106:x2=106:y2=76:GOSUB Rahmen3
  343.   x1=540:y1=106:x2=406:y2=76:GOSUB Rahmen3
  344.   x1=540:y1=162:x2=106:y2=132:GOSUB Rahmen3
  345.   LOCATE 12,22:PRINT "Ja"
  346.   COLOR 6:LOCATE 12,58:PRINT "Nein"
  347.   nljn$="Nein"
  348.   LINE (405,75)-(541,107),4,b
  349.   LINE (404,75)-(542,107),4,b
  350.   LINE (421,84)-(525,98),4,b
  351.   LINE (420,84)-(526,98),4,b
  352.   GOSUB prgl
  353.   RETURN  
  354.  
  355. prgl:
  356.    a$=INKEY$
  357.    IF a$=CHR$(31) THEN GOTO prgll
  358.    IF a$=CHR$(30) THEN GOTO prglr
  359.    IF a$=CHR$(13) AND nljn$="Nein" THEN LINE (16,8)-(615,178),1,bf:RETURN
  360.    IF a$=CHR$(13) AND nljn$="Ja" THEN GOTO Nlueil
  361.    GOTO prgl
  362.    
  363. prglr:
  364.   IF nljn$="Nein" THEN GOTO prgl
  365.   nljn$="Nein"
  366.   LINE (405,75)-(541,107),4,b
  367.   LINE (404,75)-(542,107),4,b
  368.   LINE (105,75)-(241,107),1,b
  369.   LINE (104,75)-(242,107),1,b 
  370.   COLOR 6:LOCATE 12,58:PRINT"Nein"
  371.   COLOR 2:LOCATE 12,22:PRINT"Ja"
  372.   LINE (421,84)-(525,98),4,b
  373.   LINE (420,84)-(526,98),4,b
  374.   LINE (121,84)-(225,98),1,b
  375.   LINE (120,84)-(226,98),1,b
  376.   GOTO prgl
  377.   
  378. prgll:
  379.   IF nljn$="Ja" THEN GOTO prgl
  380.   nljn$="Ja"
  381.   LINE (405,75)-(541,107),1,b
  382.   LINE (404,75)-(542,107),1,b
  383.   LINE (105,75)-(241,107),4,b
  384.   LINE (104,75)-(242,107),4,b
  385.   COLOR 2:LOCATE 12,58:PRINT"Nein"
  386.   COLOR 6:LOCATE 12,22:PRINT"Ja"
  387.   LINE (421,84)-(525,98),1,b
  388.   LINE (420,84)-(526,98),1,b
  389.   LINE (121,84)-(225,98),4,b
  390.   LINE (120,84)-(226,98),4,b
  391.   GOTO prgl
  392.   
  393. Nlueil:
  394.   COLOR 6:LOCATE 19,18:PRINT"Dateiname: " 
  395.   i=1:qay=0
  396.   WHILE i<=20  
  397.     a$=""      
  398.         
  399.     Daste:
  400.       a$=INKEY$
  401.       IF a$<>"" THEN GOSUB Tp2
  402.       IF qay=0 THEN GOTO Daste
  403.   WEND
  404.  
  405.   OPEN ladename$ FOR INPUT AS 1
  406.   INPUT#1,spieleranzahl
  407.   INPUT#1,runde
  408.   FOR qs=1 TO spieleranzahl
  409.     INPUT#1,stelle(qs)
  410.     INPUT#1,hname$(qs)
  411.     INPUT#1,firm$(qs)
  412.     INPUT#1,schiffname$(qs)
  413.     INPUT#1,status(qs)
  414.     INPUT#1,treibstoff(qs)
  415.     INPUT#1,frei(qs)
  416.     INPUT#1,geld(qs)
  417.     FOR qa=1 TO 16
  418.       INPUT#1,Inventur(qa,qs)
  419.     NEXT qa
  420.   NEXT qs
  421.   CLOSE 1
  422.  
  423. Tp2:  
  424.   IF a$=CHR$(13) THEN i=21:qay=1:ladename$=tgb$:RETURN                                          
  425.   IF a$=CHR$(8) AND i=1 THEN RETURN
  426.   IF a$=CHR$(8) THEN i=i-1:LOCATE 19,i+29:PRINT" ":tgb$=MID$(tgb$,1,LEN(tgb$)-1):RETURN
  427.   IF i=21 THEN BEEP:RETURN
  428.   LOCATE 19,i+29:PRINT a$:i=i+1:tgb$=tgb$+a$
  429.   RETURN 
  430.  
  431. Spielfeld:
  432.   COLOR 0,0
  433.   GOSUB Bildschirmscroll5
  434.   FOR q=0 TO 7
  435.     LINE (400+q*2,7-q)-(400+q*2,179+q),15-q
  436.     LINE (414+q*2,q)-(414+q*2,186-q),8+q
  437.     LINE (400+q*2+1,7-q)-(400+q*2+1,179+q),15-q
  438.     LINE (414+q*2+1,q)-(414+q*2+1,186-q),8+q
  439.     SOUND 200+q*200,1,255,1
  440.   NEXT
  441.   LINE (414,0)-(414,186),0
  442.   FOR q=0 TO 7
  443.     LINE (428-q*2,64+q)-(617+q*2,64+q),15-q
  444.     LINE (414+q*2,71+q)-(631-q*2,71+q),8+q
  445.     SOUND 200+q*200,1,255,1
  446.   NEXT
  447.   LINE (414,71)-(631,71),0
  448.   RETURN
  449.  
  450.   
  451. Aktion:
  452.   GOSUB Map
  453.   LINE (21,165)-(392,177),6,b
  454.   LINE (22,165)-(391,177),6,b
  455.   LINE (21,149)-(204,162),6,b
  456.   LINE (22,149)-(205,162),6,b
  457.   LINE (209,149)-(392,162),6,b
  458.   LINE (210,149)-(391,162),6,b
  459.   LINE (21,133)-(204,146),6,b
  460.   LINE (22,133)-(205,146),6,b
  461.   LINE (209,133)-(392,146),6,b
  462.   LINE (210,133)-(391,146),6,b
  463.   LINE (435,13)-(608,26),6,b
  464.   LINE (436,13)-(607,26),6,b
  465.   LINE (435,29)-(608,42),6,b
  466.   LINE (436,29)-(607,42),6,b
  467.   LINE (435,45)-(608,58),6,b
  468.   LINE (436,45)-(607,58),6,b
  469.   COLOR 3
  470.   LOCATE 20,28
  471.   PRINT"Status :";status(yxc)
  472.   SOUND 200,.1,255,1
  473.   LOCATE 20,5
  474.   PRINT "Runde     :";runde
  475.   SOUND 200,.1,255,1
  476.   LOCATE 16,6
  477.   PRINT "Nahrung:";Inventur(13,yxc)
  478.   SOUND 200,.1,255,2
  479.   LOCATE 16,21
  480.   PRINT  "Wasser:";Inventur(12,yxc)
  481.   SOUND 200,.1,255,3
  482.   LOCATE 16,34
  483.   PRINT "Treibstoff:";treibstoff(yxc)
  484.   SOUND 200,.1,255,0
  485.   LOCATE 3,56
  486.   PRINT hname$(yxc)
  487.   SOUND 200,.1,255,0
  488.   LOCATE 5,56
  489.   PRINT firm$(yxc)
  490.   SOUND 200,.1,255,0
  491.   LOCATE 7,56
  492.   PRINT schiffname$(yxc)
  493.   SOUND 200,.1,255,0
  494.   
  495.   GOSUB Menue
  496.   GOSUB Handel
  497.   warten2:
  498.     a$=INKEY$
  499.       IF a$=CHR$(129) THEN GOSUB Anverkaufmenue
  500.       IF a$=CHR$(130) THEN GOSUB Abflug
  501.       IF a$=CHR$(131) THEN GOTO Action2
  502.       IF a$=CHR$(133) AND zielplanet$(yxc)<>"" THEN GOSUB Bildschirmscroll5:GOSUB Neuevariablen:RETURN
  503.       IF a$=CHR$(133) AND zielplanet$(yxc)="" THEN GOSUB Endefehler
  504.   GOTO warten2
  505.  
  506. Action2:
  507.   GOSUB Menue2 
  508.   warten3:
  509.     a$=INKEY$
  510.       IF a$=CHR$(129) THEN GOTO Karte
  511.       IF a$=CHR$(130) THEN GOTO Spielstand
  512.       IF a$=CHR$(131) THEN GOTO Inventur
  513.   GOTO warten3
  514.    
  515. Handel:
  516.   LOCATE 3,4:COLOR 3
  517.   PRINT SPACE$(45)
  518.   LOCATE 3,20
  519.   PRINT" A u s w a h l"
  520.   SOUND 200,.1,255,0
  521.   LINE (21,10)-(392,28),6,b
  522.   LINE (22,10)-(391,28),6,b
  523.   LINE (23,11)-(390,28),6,b
  524.   LINE (60,29)-(60,114),6
  525.   LINE (61,29)-(61,114),6
  526.   LINE (21,29)-(392,114),6,b
  527.   LINE (22,29)-(391,114),6,b
  528.   LINE (316,29)-(317,114),6,b
  529.   LINE (21,117)-(392,130),6,b
  530.   LINE (22,117)-(391,130),6,b
  531.   LINE (21,43)-(392,43),6
  532.   LINE (225,29)-(225,114),6
  533.   LINE (226,29)-(226,114),6
  534.   LOCATE 5,15
  535.   PRINT"Waren"
  536.   SOUND 200,.1,255,1
  537.   LOCATE 5,32
  538.   PRINT"Preis"
  539.   SOUND 200,.1,255,2
  540.   LOCATE 5,5 :PRINT"Nr."
  541.   SOUND 200,.1,255,3
  542.   COLOR 3
  543.   LOCATE 18,5:PRINT"Lagerraum :";frei(yxc)
  544.   SOUND 200,.1,255,0
  545.   LOCATE 18,28:PRINT"Geld   :";geld(yxc)
  546.   SOUND 200,.1,255,1
  547.   LOCATE 5,44:PRINT"Anz."
  548.   SOUND 200,.1,255,2
  549.   FOR q=1 TO qwe-1
  550.   LOCATE 6+q,5:PRINT q
  551.   IF sopreis(q)=1 THEN LOCATE 6+q,10:PRINT "*":SOUND 880,.1,255,3
  552.   LOCATE 6+q,12:PRINT test$(q)
  553.   LOCATE 6+q,32:PRINT ptest(q)
  554.   LOCATE  6+q,44:PRINT mtest(q)
  555.   SOUND 200,.1,255,3
  556.   NEXT
  557.   q=0
  558.   RETURN
  559.   
  560. Map:
  561.   IF zustand$(stelle(yxc)) ="techn." THEN farbe=7:farbe2=10
  562.   IF zustand$(stelle(yxc)) ="Wasser" THEN farbe=12:farbe2=8
  563.   IF zustand$(stelle(yxc)) ="Urwald" THEN farbe=6:farbe2=7
  564.   IF zustand$(stelle(yxc)) ="Wüste"  THEN farbe=4:farbe2=5
  565.   GOSUB Planetzeichnen
  566.   COLOR 2,0
  567.   LOCATE 13,56:PRINT Planet$(stelle(yxc))
  568.   SOUND 200,.1,255,0
  569.   LOCATE 16,56:PRINT"Oberfl.  : ";zustand$(stelle(yxc))
  570.   SOUND 200,.1,255,1
  571.   LOCATE 17,56:PRINT"Durchm.  :";dm(stelle(yxc));"km"
  572.   SOUND 200,.1,255,2
  573.   LOCATE 18,56:PRINT"Rasse    : ";rasse$(stelle(yxc))
  574.   SOUND 200,.1,255,3
  575.   LOCATE 19,56:PRINT"Einwohner:";ew(stelle(yxc));"Mrd."
  576.   SOUND 200,.1,255,0
  577.   LOCATE 20,56:PRINT"Sprache  : ";sprache$(stelle(yxc))
  578.   SOUND 200,.1,255,1
  579.   LOCATE 21,56:PRINT"Währung  : ";waehrung$(stelle(yxc))
  580.   SOUND 200,.1,255,2
  581.   LOCATE 22,56:PRINT"Reg.sform: ";regf$(stelle(yxc))
  582.   SOUND 200,.1,255,3
  583.   RETURN  
  584.  
  585. Anverkaufmenue:
  586.   GOSUB Kauffarben
  587.   COLOR 3
  588.   LOCATE 3,4:PRINT SPACE$(45)
  589.   LOCATE 3,12:PRINT" A n k a u f  -  V e r k a u f" 
  590.   LOCATE 5,44:PRINT"Anz."
  591.   SOUND 200,.1,255,0
  592.   LOCATE 18,5:PRINT"Lagerraum :";frei(yxc)
  593.   SOUND 200,.1,255,1
  594.   LOCATE 18,28:PRINT"Geld   :";geld(yxc)
  595.   SOUND 200,.1,255,2
  596.   FOR q=1 TO qwe-1
  597.   LOCATE 6+q,44:PRINT mtest(q)
  598.   SOUND 200,.1,255,3
  599.   NEXT 
  600.   LOCATE 22,4:PRINT SPACE$(45):LOCATE 22,4
  601.   COLOR  2
  602.   PRINT"   F1 - Ankauf   F2 - Verkauf   F5 - Menue"      
  603.   SOUND 200,.1,255,0
  604.   Warten4:
  605.     a$=INKEY$
  606.     IF a$=CHR$(129) THEN GOTO Ankauf
  607.     IF a$=CHR$(130) THEN GOTO Verkauf
  608.     IF a$=CHR$(133) THEN 
  609.         GOSUB Menue:a$=""
  610.         LOCATE 3,4:COLOR 3
  611.         PRINT SPACE$(45)
  612.         LOCATE 3,20
  613.         PRINT" A u s w a h l"
  614.         RETURN
  615.       END IF
  616.     GOTO Warten4
  617.   RETURN
  618.   
  619. Ankauf:  
  620.   COLOR 2
  621.   abc=0 :dfg=0
  622.   LOCATE 22,4
  623.   PRINT SPACE$(45)
  624.   LOCATE 22,4
  625.   PRINT "   Warennummer  :"
  626.   qm:
  627.     abc$=INKEY$
  628.     IF abc$="" THEN qm
  629.   abc=VAL(abc$):IF abc=0 THEN GOTO Anverkaufmenue
  630.   IF abc<1 OR abc>qwe-1 THEN LOCATE 22,4:GOTO Ankauf
  631.   IF test$(abc)="Treibstoffe" AND treibstoff(yxc)=30 THEN text$="   Ihre Lagerräume sind schon voll !!!":GOTO Anzeige
  632.   IF test$(abc)="Wasser" AND Inventur(12,yxc)=25 THEN text$="   Ihre Lagerräume sind schon voll !!!":GOTO Anzeige
  633.   IF test$(abc)="Nahrung" AND Inventur(13,yxc)=20 THEN text$="   Ihre Lagerräume sind schon voll !!!":GOTO Anzeige   
  634.   LOCATE 6+abc,5:PRINT abc
  635.   SOUND 200,.1,255,0
  636.   IF sopreis(abc)=1 THEN LOCATE 6+abc,10:PRINT "*":SOUND 880,.1,255,3
  637.   LOCATE 6+abc,12:PRINT test$(abc)
  638.   SOUND 200,.1,255,1
  639.   LOCATE 6+abc,32:PRINT ptest(abc)
  640.   SOUND 200,.1,255,2
  641.   LOCATE 6+abc,44:PRINT mtest(abc)
  642.   SOUND 200,.1,255,3
  643.   LOCATE 22,4
  644.   PRINT SPACE$(45)
  645.   LOCATE 22,4
  646.   PRINT "   Wieviel Einheiten   :"
  647.   qel:
  648.     dfg$=INKEY$
  649.     IF dfg$="" THEN qel
  650.   dfg=VAL(dfg$):IF abc=0 THEN GOTO Anverkaufmenue
  651.   COLOR 3
  652.   LOCATE 6+abc,5:PRINT abc
  653.   SOUND 440,.1,255,0
  654.   IF sopreis(abc)=1 THEN LOCATE 6+abc,10:PRINT "*":SOUND 880,.1,255,3
  655.   LOCATE 6+abc,12:PRINT test$(abc)
  656.   SOUND 440,.1,255,1
  657.   LOCATE 6+abc,32:PRINT ptest(abc)
  658.   SOUND 440,.1,255,2
  659.   LOCATE 6+abc,44:PRINT mtest(abc)
  660.   SOUND 440,.1,255,3
  661.   IF dfg>mtest(abc) THEN text$="   So viel ist nicht da !!!":GOTO Anzeige
  662.   IF dfg<0 THEN GOTO Ankauf
  663.   IF frei(yxc)-dfg <0 THEN
  664.     IF test$(abc)="Treibstoffe" OR test$(abc)="Wasser" OR test$(abc)="Nahrung" THEN Jfkl
  665.     text$="   So viel können Sie nicht lagern !!!":GOTO Anzeige
  666.     Jfkl:
  667.   END IF  
  668.   IF dfg*ptest(abc) >geld(yxc) THEN text$="   Zu  wenig Geld !!!":GOTO Anzeige
  669.   IF test$(abc)="Treibstoffe" AND dfg+treibstoff(yxc) >30 THEN text$="   Ihr Tank faßt nur 30 Einheiten !!!":GOTO Anzeige
  670.   IF test$(abc)="Wasser" AND dfg+Inventur(12,yxc) >25 THEN text$="   Ihr Lager faßt nur 25 Einheiten !!!":GOTO Anzeige
  671.   IF test$(abc)="Nahrung" AND dfg+Inventur(13,yxc) >20 THEN text$="   Ihr Lager faßt nur 20 Einheiten !!!":GOTO Anzeige
  672.   frei(yxc)=frei(yxc)-dfg
  673.   IF test$(abc)="Treibstoffe" THEN frei(yxc)=frei(yxc)+dfg
  674.   IF test$(abc)="Wasser" THEN frei(yxc)=frei(yxc)+dfg
  675.   IF test$(abc)="Nahrung" THEN frei(yxc)=frei(yxc)+dfg
  676.   geld(yxc)=geld(yxc)-dfg*ptest(abc)
  677.      FOR q=1 TO 16 
  678.        IF test$(abc)=twaren$(q) THEN Inventur(q,yxc)=Inventur(q,yxc)+dfg
  679.        SOUND 440,.1,255,0
  680.      NEXT q
  681.   IF test$(abc)="Treibstoffe" THEN treibstoff(yxc)=treibstoff(yxc)+dfg
  682.   IF test$(abc)="Treibstoffe" THEN Inventur(10,yxc)=Inventur(10,yxc)-dfg   
  683.   mtest(abc)=mtest(abc)-dfg
  684.   LOCATE 18,36:PRINT SPACE$(12)
  685.   LOCATE 16,5
  686.   PRINT " Nahrung:";Inventur(13,yxc)
  687.   SOUND 200,.1,255,0
  688.   LOCATE 16,21
  689.   PRINT  "Wasser:";Inventur(12,yxc)
  690.   SOUND 200,.1,255,1
  691.   LOCATE 16,34
  692.   PRINT "Treibstoff:";treibstoff(yxc)
  693.   SOUND 200,.1,255,2
  694.   GOTO Anverkaufmenue
  695.  
  696. Verkauf:
  697.   abc=0:dfg=0
  698.   COLOR 3
  699.   LOCATE 5,44 :PRINT "Inv."
  700.   FOR q=1 TO qwe-1
  701.     LOCATE 6+q,44
  702.     FOR w=1 TO 16
  703.       IF test$(q)=twaren$(w) THEN 
  704.         PRINT Inventur(w,yxc)
  705.         SOUND 440,.1,255,0
  706.       END IF
  707.     NEXT w
  708.   NEXT q
  709.   COLOR 2
  710.   LOCATE 22,4:PRINT SPACE$(45)
  711.   LOCATE 22,4:PRINT"   Welche Warennummer:"
  712.   qef:
  713.     abc$=INKEY$
  714.     IF abc$="" THEN qef
  715.   abc=VAL(abc$):IF abc=0 THEN GOTO Anverkaufmenue
  716.   IF abc<1 OR abc>qwe-1 THEN LOCATE 22,4:GOTO Verkauf
  717.   IF test$(abc)="Treibstoffe" THEN text$="   Treibstoff können Sie nicht verkaufen !!!":GOTO Anzeige
  718.   IF test$(abc)="Wasser" THEN text$="     Wasser können Sie nicht verkaufen !!!":GOTO Anzeige
  719.   IF test$(abc)="Nahrung" THEN text$="    Nahrung können Sie nicht verkaufen !!!":GOTO Anzeige
  720.   COLOR 2
  721.   LOCATE 6+abc,5:PRINT abc
  722.   SOUND 200,.1,255,0
  723.   IF sopreis(abc)=1 THEN LOCATE 6+abc,10:PRINT "*":SOUND 880,.1,255,3
  724.   LOCATE 6+abc,12:PRINT test$(abc)
  725.   SOUND 200,.1,255,1
  726.   LOCATE 6+abc,32:PRINT ptest(abc)
  727.   SOUND 200,.1,255,2
  728.   FOR q=1 TO 16
  729.     IF test$(abc)=twaren$(q) THEN LOCATE 6+abc,44:PRINT Inventur(q,yxc)
  730.     SOUND 440,.1,255,0
  731.   NEXT q
  732.   LOCATE 22,4:PRINT SPACE$(45)
  733.   LOCATE 22,4:PRINT"   Wieviel Einheiten   :"
  734.   qed:
  735.     dfg$=INKEY$
  736.     IF dfg$="" THEN qed
  737.   dfg=VAL(dfg$):IF abc=0 THEN GOTO Anverkaufmenue
  738.   COLOR 3
  739.   LOCATE 6+abc,5:PRINT abc
  740.   SOUND 200,.1,255,0
  741.   IF sopreis(abc)=1 THEN LOCATE 6+abc,10:PRINT "*":SOUND 880,.1,255,3
  742.   LOCATE 6+abc,12:PRINT test$(abc)
  743.   SOUND 200,.1,255,1
  744.   LOCATE 6+abc,32:PRINT ptest(abc)
  745.   SOUND 200,.1,255,2
  746.   LOCATE 6+abc,44:PRINT mtest(abc)
  747.   SOUND 200,.1,255,3
  748.   FOR q=1 TO 16
  749.     IF test$(abc)=twaren$(q) AND dfg >Inventur(q,yxc) THEN text$="   So viele Einheiten haben Sie nicht !!!":GOTO Anzeige
  750.     SOUND 440,.1,255,0
  751.   NEXT
  752.   IF dfg<0 THEN GOTO Verkauf
  753.   geld(yxc)=geld(yxc)+dfg*ptest(abc)
  754.   FOR q=1 TO 16
  755.     IF test$(abc)=twaren$(q) THEN Inventur(q,yxc)=Inventur(q,yxc)-dfg
  756.     SOUND 440,.1,255,0
  757.   NEXT
  758.   mtest(abc)=mtest(abc)+dfg
  759.   frei(yxc)=frei(yxc)+dfg
  760.   LOCATE 18,36:PRINT SPACE$(12)
  761.   LOCATE 16,5
  762.   PRINT "Nahrung:";Inventur(13,yxc)
  763.   SOUND 200,.1,255,0
  764.   LOCATE 16,21
  765.   PRINT  "Wasser:";Inventur(12,yxc)
  766.   SOUND 200,.1,255,1
  767.   LOCATE 16,34
  768.   PRINT "Treibstoff:";treibstoff(yxc)
  769.   SOUND 200,.1,255,2
  770.   GOTO Anverkaufmenue
  771.  
  772. Abflug:
  773.   GOSUB Flugfarben
  774.   zielplanet$(yxc)=""
  775.   GOSUB Bildschirmscroll4
  776.   LOCATE 3,4:COLOR 3
  777.   PRINT SPACE$(45)
  778.   LOCATE 3,20
  779.   PRINT"F l u g z i e l"
  780.   SOUND 200,.1,255,3
  781.   LOCATE 5,11
  782.   PRINT"Flugverbindungen"
  783.   SOUND 200,.1,255,2
  784.   LOCATE 5,32
  785.   PRINT"Entfernungen"
  786.   SOUND 200,.1,255,0
  787.   LINE (21,43)-(392,43),6
  788.   LINE (225,29)-(225,114),6
  789.   LINE (226,29)-(226,114),6
  790.   LOCATE 5,5 :PRINT"Nr."
  791.   SOUND 200,.1,255,1
  792.   LINE (60,29)-(60,114),6
  793.   LINE (61,29)-(61,114),6
  794.   LINE (21,29)-(392,114),6,b
  795.   LINE (22,29)-(391,114),6,b
  796.   COLOR 3
  797.   FOR q=1 TO 6
  798.   LOCATE 6+q,5:PRINT q
  799.   LOCATE 6+q,12:IF asdf$(q)="" THEN asdf$(q)="    ---"
  800.   PRINT asdf$(q)
  801.   LOCATE 6+q,32
  802.   IF asdf(q) =0 THEN PRINT"    ---"
  803.   IF asdf(q) <>0 THEN PRINT asdf(q)
  804.   SOUND 200,.1,255,0
  805.   NEXT
  806.  
  807.   Flugfrage:
  808.     COLOR 2
  809.     LOCATE 22,4:PRINT SPACE$(45)
  810.     LOCATE 22,4:PRINT" Welche Flugnummer wählen Sie   :"
  811.     qzp:
  812.       flug$=INKEY$
  813.       IF flug$="" THEN qzp
  814.     flug=VAL(flug$)
  815.     IF flug=0 OR flug >6 THEN GOTO Flugfrage
  816.     IF asdf(flug)=0 OR flug <1 OR flug >6 THEN Flugfrage
  817.     zielplanet$(yxc)=asdf$(flug)
  818.     FOR q=1 TO 6
  819.       IF zielplanet$(yxc)=Planet$(verbindung(stelle(yxc),q)) THEN zielplanet(yxc)=Planet(verbindung(stelle(yxc),q))
  820.       SOUND 440,.1,255,1
  821.     NEXT q
  822.     LOCATE 22,4:PRINT SPACE$(45)
  823.     GOSUB Bildschirmscroll4
  824.     GOSUB Menue
  825.     GOSUB Handel
  826.   q=0
  827.   RETURN
  828.  
  829. Karte:
  830.   
  831.   COLOR 3
  832.   GOSUB Bildschirmscroll5
  833.   GOSUB Rahmen2
  834.   PALETTE 6,1,.2,0
  835.   PALETTE 2,0,1,1
  836.   PALETTE 5,0,.53,.53
  837.   Sterne:
  838.   FOR q=1 TO 200
  839.     x=RND(1)*615
  840.     y=RND(1)*180
  841.     IF x>20 AND y>10 THEN PSET(x,y),3
  842.   NEXT
  843.   FOR q=1 TO 41
  844.     LINE(dr1(q),dr2(q))-(dr3(q),dr4(q)),6
  845.   NEXT q
  846.  
  847.   w=4:t=5:u=7:h=2
  848.   FOR q=1 TO 20
  849.     IF drf(q)=1 THEN f=t
  850.     IF drf(q)=2 THEN f=w
  851.     IF drf(q)=3 THEN f=h
  852.     IF drf(q)=4 THEN f=u
  853.     x=drx(q):y=dry(q):r=drr(q):GOSUB Planet
  854.     LOCATE drlx(q),drly(q):PRINT drna$(q)
  855.   NEXT q
  856.   GOSUB Warten
  857.   PALETTE 6,0,.8,0
  858.   GOSUB Spielfeld
  859.   
  860.   GOTO Aktion
  861.  
  862. Spielstand:
  863.   
  864.   GOSUB Bildschirmscroll5
  865.   GOSUB Rahmen2
  866.   sp=spieleranzahl
  867.   IF sp=6 THEN h=13:g=3:xls=22:xrs=52:yus=130:xlg=60:xrg=90:yug=130:pj=104
  868.   IF sp=5 THEN h=15:g=5:xls=38:xrs=68:yus=130:xlg=76:xrg=106:yug=130:pj=120
  869.   IF sp=4 THEN h=18:g=8:xls=62:xrs=92:yus=130:xlg=100:xrg=130:yug=130:pj=144
  870.   IF sp=3 THEN h=23:g=12:xls=94:xrs=124:yus=130:xlg=132:xrg=162:yug=130:pj=184
  871.   IF sp=2 THEN h=27:g=21:xls=162:xrs=192:yus=130:xlg=200:xrg=230:yug=130:pj=216
  872.   IF sp=1 THEN g=35:xls=278:xrs=308:yus=130:xlg=316:xrg=346:yug=130:pj=0
  873.   FOR u=1 TO spieleranzahl  
  874.     yog=INT(geld(u)/100)
  875.     yos=status(u)*25
  876.     IF geld(u) <100 THEN yog=1
  877.     IF geld(u) <0   THEN yos=0
  878.     COLOR 6:LOCATE 19,g:PRINT LEFT$(hname$(u),10)
  879.     COLOR 3:LOCATE 21,g:PRINT"Status:";status(u)
  880.     COLOR 4:LOCATE 22,g:PRINT"G: ";geld(u)
  881.     GOSUB Balken1
  882.     GOSUB Balken2
  883.     g=g+h:xls=xls+pj:xrs=xrs+pj:xlg=xlg+pj:xrg=xrg+pj
  884.   NEXT
  885. GOSUB Warten
  886.  
  887. GOSUB Spielfeld
  888. GOTO Aktion
  889.  
  890. Inventur:
  891.   GOSUB Bildschirmscroll4
  892.   LOCATE 3,20:COLOR 3
  893.   PRINT "I n v e n t u r "
  894.   LINE (21,29)-(392,114),6,b
  895.   LINE (22,29)-(391,114),6,b
  896.   LINE (206,29)-(207,114),6,b
  897.   COLOR 2
  898.   LOCATE 22,4:PRINT SPACE$(45):LOCATE 22,21
  899.   PRINT "T A S T E  !!!" 
  900.   SOUND 200,.1,255,0
  901.   COLOR 3
  902.   FOR q=1 TO 8
  903.     LOCATE 5+q,6:PRINT twaren$(q)
  904.     LOCATE 5+q,21:PRINT Inventur(q,yxc)
  905.     SOUND 200,.1,255,0
  906.   NEXT
  907.   l=0
  908.   FOR q=9 TO 16
  909.     l=l+1
  910.     LOCATE 5+l,29:PRINT twaren$(q)
  911.     LOCATE 5+l,44:PRINT Inventur(q,yxc)
  912.     SOUND 200,.1,255,0
  913.   NEXT
  914.   LOCATE 7,44:PRINT treibstoff(yxc)
  915.   GOSUB Warten
  916.   GOSUB Bildschirmscroll4
  917.   LOCATE 3,20:PRINT SPACE$(16)
  918.   GOSUB Handel
  919.   GOSUB Menue
  920.   GOTO warten2
  921.  
  922. Ereignisse:
  923.   PALETTE 8,1,.53,0:PALETTE 9,1,.6,0
  924.   PALETTE 10,1,.67,0:PALETTE 11,1,.73,0
  925.   PALETTE 12,1,.8,0:PALETTE 13,1,.87,0
  926.   PALETTE 14,1,.93,0:PALETTE 15,1,1,0
  927.   PALETTE 4,1,0,0:PALETTE 5,.5,1,.5
  928.   PALETTE 6,0,0,1
  929.   GOSUB Bildschirmscroll5
  930.   GOSUB Rahmen2
  931.   ghj=0:n=1
  932.   IF treibstoff(yxc)  <=0 THEN enr=19:treibstoff(yxc)=10:GOSUB Reiprint:ghj=1
  933.   IF Inventur(12,yxc) <=0 THEN enr=18:Inventur(12,yxc)=10:GOSUB Reiprint:ghj=1
  934.   IF Inventur(13,yxc) <=0 THEN enr=17:Inventur(13,yxc)=10:GOSUB Reiprint:ghj=1
  935.   IF ghj=1 THEN GOTO Naechsterzug
  936.   
  937.   Zufall1:
  938.     jn=RND(1)
  939.     IF jn >.7 THEN Zufall2
  940.     COLOR 5
  941.     LOCATE 12,14
  942.     PRINT" Nichts besonderes ist während dem Flug passiert !!!"
  943.     SOUND 200,.1,255,0
  944.     GOSUB Warten
  945.     GOTO Naechsterzug
  946.     
  947.     Zufall2:
  948.       enr=INT(RND(1)*16+1)
  949.       GOSUB Reiprint
  950.       GOTO Naechsterzug
  951.   
  952.   Naechsterzug:
  953.     GOSUB Bildschirmscroll5
  954.     PALETTE 0,0,0,0:PALETTE 1,0,0,0
  955.     PALETTE 2,.8,.56,.2:PALETTE 3,.8,.73,.73
  956.     PALETTE 4,.87,.73,0:PALETTE 5,.8,.53,0
  957.     PALETTE 6,0,.8,0:PALETTE 7,0,.53,0
  958.     PALETTE 8,0,.53,.53:PALETTE 9,0,.6,.6
  959.     PALETTE 10,0,.67,.67:PALETTE 11,0,.73,.73
  960.     PALETTE 12,0,.8,.8:PALETTE 13,0,.87,.87
  961.     PALETTE 14,0,.93,.93:PALETTE 15,0,1,1
  962.     RETURN
  963.  
  964. Anzeige:
  965.   COLOR 2
  966.   LOCATE 22,4:PRINT SPACE$(45)
  967.   LOCATE 22,4:PRINT text$
  968.   SOUND 200,.1,255,0
  969.   GOSUB Warten
  970.   LOCATE 22,4:PRINT SPACE$(45)
  971.   GOTO Anverkaufmenue
  972.   
  973. Keinver:
  974.   text$="   Das können Sie nicht verkaufen !!!"
  975.   GOTO Anzeige
  976.   
  977. Verbindungen:
  978.   rtz=1
  979.   FOR q=1 TO 6
  980.     a= RND(1)
  981.     IF a<= .5 THEN asdf$(rtz)=Planet$(verbindung(stelle(yxc),q)):asdf(rtz)=entfernung(stelle(yxc),q):rtz=rtz+1
  982.     IF Planet(verbindung(stelle(yxc),q))=altstelle(yxc) THEN rtz=rtz-1
  983.   NEXT q
  984.   IF asdf$(2)="" THEN GOTO Verbindungen
  985.   RETURN
  986.     
  987. Preiseeinlesen: 
  988.   FOR q=1 TO 16 
  989.     sopreis(q)=0
  990.   NEXT
  991.   IF zustand$(stelle(yxc))="techn." THEN GOSUB Warentech
  992.   IF zustand$(stelle(yxc))="Wasser" THEN GOSUB Warenwas
  993.   IF zustand$(stelle(yxc))="Urwald" THEN GOSUB Warenur
  994.   IF zustand$(stelle(yxc))="Wüste"  THEN GOSUB Warenwue
  995.   q=0
  996.   RETURN
  997.  
  998. Warentech:
  999.   qwe=1
  1000.   FOR q=1 TO 16 
  1001.     a=RND(1)
  1002.     IF a <= .5 THEN test$(qwe)=twaren$(q):qwe=qwe+1
  1003.     IF a <= .5 THEN mtest(q)=INT(a*30)
  1004.     IF mtest(q)<1 THEN mtest(q)=1
  1005.   NEXT
  1006.   IF qwe>9 OR qwe<4 THEN Warentech
  1007.   FOR q=1 TO qwe-1
  1008.     FOR w=1 TO 16
  1009.       IF test$(q)=vrglt$(w) THEN 
  1010.         ptest(q)=vrgltx(w)+(INT(RND(1)*vrglty(w)))
  1011.         ptest(q)=INT((ptest(q)*runde^3)/200000&)+ptest(q)
  1012.         IF INT(ptest(q)/5)=(ptest(q)/5) THEN 
  1013.           ptest(q)=INT(ptest(q)/1.2)
  1014.           sopreis(q)=1
  1015.         END IF  
  1016.       END IF
  1017.     NEXT w
  1018.   NEXT q   
  1019.   RETURN
  1020.  
  1021. Warenwas:               
  1022.   qwe=1
  1023.   FOR q=1 TO 9 
  1024.     a=RND(1)
  1025.     IF a <= .5 THEN test$(qwe)=wwaren$(q):qwe=qwe+1
  1026.     IF a <= .5 THEN mtest(q)=INT(a*30)
  1027.     IF mtest(q)<1 THEN mtest(q)=1
  1028.   NEXT
  1029.   IF qwe>9 OR qwe<4 THEN Warenwas
  1030.   FOR q=1 TO qwe-1
  1031.     FOR w=1 TO 9
  1032.       IF test$(q)=vrglh$(w) THEN 
  1033.         ptest(q)=vrglhx(w)+(INT(RND(1)*vrglhy(w)))
  1034.         ptest(q)=INT((ptest(q)*runde^3)/200000&)+ptest(q)
  1035.         IF INT(ptest(q)/5)=(ptest(q)/5) THEN 
  1036.           ptest(q)=INT(ptest(q)/1.2)
  1037.           sopreis(q)=1
  1038.         END IF  
  1039.       END IF
  1040.     NEXT w
  1041.   NEXT q   
  1042.   RETURN
  1043.  
  1044. Warenur:
  1045.   qwe=1
  1046.   FOR q=1 TO 13 
  1047.     a=RND(1)
  1048.     IF a <= .5 THEN test$(qwe)=uwaren$(q):qwe=qwe+1
  1049.     IF a <= .5 THEN mtest(q)=INT(a*30)
  1050.     IF mtest(q)<1 THEN mtest(q)=1
  1051.   NEXT
  1052.   IF qwe>9 OR qwe<4 THEN Warenur
  1053.   FOR q=1 TO qwe-1
  1054.     FOR w=1 TO 13 
  1055.       IF test$(q)=vrglu$(w) THEN 
  1056.         ptest(q)=vrglux(w)+(INT(RND(1)*vrgluy(w)))
  1057.         ptest(q)=INT((ptest(q)*runde^3)/200000&)+ptest(q)
  1058.         IF INT(ptest(q)/5)=(ptest(q)/5) THEN 
  1059.           ptest(q)=INT(ptest(q)/1.2)
  1060.           sopreis(q)=1
  1061.         END IF  
  1062.       END IF
  1063.     NEXT w
  1064.   NEXT q  
  1065.   RETURN
  1066.  
  1067. Warenwue:
  1068.   qwe=1
  1069.   FOR q=1 TO 11 
  1070.     a=RND(1)
  1071.     IF a <= .5 THEN test$(qwe)=dwaren$(q):qwe=qwe+1
  1072.     IF a <= .5 THEN mtest(q)=INT(a*30)
  1073.     IF mtest(q)<1 THEN mtest(q)=1
  1074.   NEXT
  1075.   IF qwe>9 OR qwe<4 THEN Warenwue
  1076.   FOR q=1 TO qwe-1
  1077.     FOR w=1 TO 11
  1078.       IF test$(q)=vrglw$(w) THEN 
  1079.         ptest(q)=vrglwx(w)+(INT(RND(1)*vrglwy(w)))
  1080.         ptest(q)=INT((ptest(q)*runde^3)/200000&)+ptest(q)
  1081.         IF INT(ptest(q)/5)=(ptest(q)/5) THEN 
  1082.           ptest(q)=INT(ptest(q)/1.2)
  1083.           sopreis(q)=1
  1084.         END IF  
  1085.       END IF
  1086.     NEXT w
  1087.   NEXT q   
  1088.   RETURN
  1089.  
  1090. Rahmen:
  1091.   FOR q=0 TO 7
  1092.     LINE (q*2,q)-(631-q*2,186-q),8+q,b
  1093.     LINE (q*2+1,q)-(q*2+1,186-q),8+q
  1094.     LINE (631-q*2-1,q)-(631-q*2-1,186-q),8+q
  1095.     SOUND 200+q*200,1,255,0
  1096.   NEXT
  1097.   RETURN
  1098.  
  1099. Rahmen2:
  1100.   FOR q=0 TO 7
  1101.     LINE (395,q)-(430,q),8+q
  1102.     LINE (395,186-q)-(430,186-q),8+q
  1103.     LINE (631-q*2,50)-(631-q*2,100),8+q
  1104.     LINE (631-q*2-1,50)-(631-q*2-1,100),8+q
  1105.   NEXT
  1106.   RETURN
  1107.   
  1108. Rahmen3:
  1109.   FOR q=0 TO 7
  1110.     LINE (q*2+x2,y2+q)-(x1-q*2,y1-q),8+q,b
  1111.     LINE (q*2+1+x2,y2+q)-(q*2+1+x2,y1-q),8+q,b
  1112.     LINE (x1-q*2-1,y2+q)-(x1-q*2-1,y1-q),8+q,b
  1113.     SOUND 200+q*200,1,255,0
  1114.   NEXT
  1115.   RETURN
  1116.  
  1117. Warten:
  1118.   a$=INKEY$
  1119.   IF a$="" THEN Warten
  1120.   RETURN
  1121.   
  1122. Bildschirmscroll1:
  1123.   FOR q=0 TO 79
  1124.     SCROLL (16,8)-(315,178),-4*n,0
  1125.     SCROLL (316,8)-(615,178),4*n,0
  1126.   SOUND q*5+100,.1,255,0
  1127.   NEXT q
  1128.   RETURN
  1129.  
  1130. Bildschirmscroll2:  
  1131.   FOR q=1 TO l+6
  1132.     SCROLL (45,30)-(315,91),-12*n,-3*n
  1133.     SCROLL (316,30)-(585,91),12*n,-3*n
  1134.     SCROLL (45,92)-(315,160),-12*n,3*n
  1135.     SCROLL (316,92)-(585,160 ),12*n,3*n
  1136.   SOUND q*10*n+1000,.1,255,0
  1137.   NEXT
  1138.   RETURN
  1139.  
  1140. Bildschirmscroll3:
  1141.   COLOR 0,0
  1142.   FOR q=1 TO 24
  1143.     SCROLL (35,25)-(315,95),12,3
  1144.     SCROLL (316,25)-(595,95),-12,3
  1145.     SCROLL (35,96)-(315,165),12,-3
  1146.     SCROLL (316,96)-(595,165),-12,-3
  1147.   SOUND 500-q*15,1,255,0  
  1148.   NEXT 
  1149.   RETURN
  1150.   
  1151. Bildschirmscroll4:
  1152.   LINE (19,29)-(392,116),0,bf
  1153.   RETURN 
  1154.   
  1155. Bildschirmscroll5:
  1156.   LINE (19,8)-(615,178),0,bf
  1157.   RETURN 
  1158.  
  1159. Planetzeichnen:
  1160.   CIRCLE (568,99),35,farbe:PAINT (566,100),farbe
  1161.   CIRCLE (578,102),23,farbe2:PAINT (576,103),farbe2
  1162.   CIRCLE (585,105),12,0:PAINT (586,105),0
  1163.   RETURN            
  1164.   
  1165. Endefehler:
  1166.   COLOR 2
  1167.   LOCATE 22,4:PRINT SPACE$(45)
  1168.   LOCATE 22,4:PRINT " Sie haben noch kein Reiseziel angegeben !!!"
  1169.   SOUND 1000,15,255,0
  1170.   SOUND 2000,15,255,1
  1171.   GOSUB Warten
  1172.   GOSUB Menue
  1173.   RETURN
  1174.         
  1175. Neuevariablen:
  1176.   abzug=asdf(flug)/10000
  1177.   IF abzug<1 THEN abzug =1
  1178.   treibstoff(yxc)=treibstoff(yxc)-INT(abzug)
  1179.   Inventur(12,yxc)=Inventur(12,yxc)-INT(abzug*2)
  1180.   Inventur(13,yxc)=Inventur(13,yxc)-INT(abzug)
  1181.   Inventur(10,yxc)=0
  1182.   abzug=0
  1183.   GOSUB Ereignisse
  1184.   altstelle(yxc)=stelle(yxc)
  1185.   stelle(yxc)=zielplanet(yxc)
  1186.   zielplanet$(yxc)="":zielplanet(yxc)=0
  1187.   FOR q=1 TO 6:asdf$(q)="":asdf(q)=0:NEXT q
  1188.   q=0:flug=0
  1189.   status(yxc)=0
  1190.   IF geld(yxc) >    0 THEN status(yxc)=1
  1191.   IF geld(yxc) > 4000 THEN 
  1192.       status(yxc)=2
  1193.       IF conr(yxc)=0 THEN frei(yxc)=frei(yxc)+10:conr(yxc)=1
  1194.     END IF
  1195.   IF geld(yxc) > 6000 THEN 
  1196.       status(yxc)=3
  1197.       IF conr(yxc)=1 THEN frei(yxc)=frei(yxc)+15:conr(yxc)=2
  1198.     END IF
  1199.   IF geld(yxc) > 8000 THEN 
  1200.       status(yxc)=4
  1201.       IF conr(yxc)=2 THEN frei(yxc)=frei(yxc)+20:conr(yxc)=3
  1202.     END IF
  1203.   IF geld(yxc) >10000 THEN Winnerofthegame
  1204.   IF geld(yxc) < -800 THEN Bankrott
  1205.   RETURN
  1206.  
  1207. Bankrott:
  1208.   GOSUB Bildschirmscroll5
  1209.   PALETTE  8,0,.3,0:PALETTE  9,0, .4,0
  1210.   PALETTE 10,0,.5,0:PALETTE 11,0,.6,0
  1211.   PALETTE 12,0, .7,0:PALETTE 13,0,.8,0
  1212.   PALETTE 14,0,.9,0:PALETTE 15,0,  1,0
  1213.   GOSUB Rahmen2
  1214.   geld(yxc)=2000
  1215.   treibstoff(yxc)=30
  1216.   Inventur(10,yxc)=0:Inventur(12,yxc)=0:Inventur(13,yxc)=0
  1217.   FOR q=1 TO 16
  1218.     frei(yxc)=frei(yxc)+Inventur(q,yxc)
  1219.     Inventur(q,yxc)=0
  1220.   NEXT
  1221.   Inventur(13,yxc)=20
  1222.   Inventur(12,yxc)=25
  1223.   COLOR 4
  1224.   LOCATE 5,7
  1225.   PRINT hname$(yxc);" !!!"
  1226.   COLOR 5
  1227.   LOCATE 9,7
  1228.   PRINT "Sie haben es mit mehr oder weniger Anstrengung geschafft, Ihr 
  1229.   LOCATE 11,7
  1230.   PRINT "Unternehmen in den Ruin zu treiben.Trotzdem geben wir,"
  1231.   LOCATE 13,7
  1232.   PRINT "der galaktische Rat von Shamway IV, Ihnen noch eine Chance."
  1233.   LOCATE 15,7
  1234.   PRINT "Sie erhalten vom Supply-Center auf Atair eine Beginnerausrüstung,"
  1235.   LOCATE 17,7
  1236.   PRINT "mit der Sie noch einmal versuchen können, Kohle zu machen."
  1237.   LOCATE 21,7
  1238.   COLOR 4
  1239.   PRINT "Als dann...viel Glück und hoffentlich mehr Erfolg !!!"
  1240.   GOSUB Warten
  1241.   GOSUB Bildschirmscroll5
  1242.   GOSUB Farbpalette
  1243.   RETURN
  1244.   
  1245. Planet:
  1246.   CIRCLE (x,y),r,f
  1247.   PAINT (x,y),f
  1248.   RETURN
  1249.   
  1250. Menue:
  1251.   LOCATE 22,4:PRINT SPACE$(45):LOCATE 22,4
  1252.   GOSUB Farbpalette
  1253.   COLOR 2
  1254.   PRINT" F1-Handel  F2-Flugziel  F3-Infos  F5-Zugende"
  1255.   SOUND 220,.1,255,0
  1256.   SOUND 440,.1,255,1
  1257.   RETURN
  1258.  
  1259. Menue2:
  1260.   LOCATE 22,4:PRINT SPACE$(45):LOCATE 22,4
  1261.   GOSUB Rahmenfarbekarte
  1262.   COLOR 2
  1263.   PRINT"    F1-Karte   F2-Spielstand   F3-Inventur" 
  1264.   SOUND 220,.1,255,0
  1265.   SOUND 440,.1,255,1
  1266.   RETURN
  1267.   
  1268. Balken1:
  1269.   FOR k=1 TO yos 
  1270.     IF yus=130 THEN LINE (xls,yus)-(xrs,yus),8:LINE (xrs,yus)-(xrs+14,yus-8),8:yus=yus-1
  1271.     LINE (xls,yus)-(xrs,yus),3
  1272.     LINE (xls,yus)-(xls+14,yus-8),3
  1273.     LINE (xls+14,yus-8)-(xrs+14,yus-8),3
  1274.     LINE (xrs+14,yus-8)-(xrs,yus),3
  1275.     PSET (xls,yus),8:PSET (xrs,yus),8:PSET (xrs+14,yus-8),8
  1276.     LINE (xls,yus-1)-(xrs,yus-1),8
  1277.     LINE (xls,yus-1)-(xls+14,yus-8-1),8
  1278.     LINE (xls+14,yus-8-1)-(xrs+14,yus-8-1),8
  1279.     LINE (xrs+14,yus-8-1)-(xrs,yus-1),8
  1280.     yus=yus-1
  1281.     SOUND k*4+150,.5,255,0
  1282.   NEXT
  1283.   yus=130
  1284.   RETURN
  1285.   
  1286. Balken2:  
  1287.   FOR k=1 TO yog  
  1288.     IF yug=130 THEN LINE (xlg,yug)-(xrg,yug),8:LINE (xrg,yug)-(xrg+14,yug-8),8:yug=yug-1    
  1289.     LINE (xlg,yug)-(xrg,yug),4
  1290.     LINE (xlg,yug)-(xlg+14,yug-8),4
  1291.     LINE (xlg+14,yug-8)-(xrg+14,yug-8),4
  1292.     LINE (xrg+14,yug-8)-(xrg,yug),4
  1293.     PSET (xlg,yug),8:PSET (xrg,yug),8:PSET (xrg+14,yug-8),8
  1294.     LINE (xlg,yug-1)-(xrg,yug-1),8
  1295.     LINE (xlg,yug-1)-(xlg+14,yug-8-1),8
  1296.     LINE (xlg+14,yug-8-1)-(xrg+14,yug-8-1),8
  1297.     LINE (xrg+14,yug-8-1)-(xrg,yug-1),8
  1298.     yug=yug-1
  1299.     SOUND k*4+150,.5,255,0
  1300.   NEXT
  1301.   yug=130
  1302.   RETURN
  1303.       
  1304. Reiprint:
  1305.   COLOR 4
  1306.   LOCATE 5,33
  1307.   PRINT"A C H T U N G !!!"
  1308.   SOUND 200,.1,255,0
  1309.   LOCATE 6,32
  1310.   PRINT "-------------------"
  1311.   COLOR 5
  1312.   FOR e1=1 TO 3
  1313.     LOCATE 8+e1*2,8
  1314.     PRINT erei$(enr,e1)
  1315.     SOUND 200,.1,255,e1
  1316.   NEXT
  1317.   geld(yxc)=geld(yxc)+erei(enr,4)
  1318.   GOSUB Warten
  1319.   RETURN
  1320.  
  1321. Rahmenfarbekarte:
  1322.   PALETTE 0,0,0,0:PALETTE 1,0,0,0
  1323.   PALETTE 2,.8,.56,.2:PALETTE 3,.8,.73,.73
  1324.   PALETTE 4,.87,.73,0:PALETTE 5,.8,.53,0
  1325.   PALETTE 6,0,.8,0:PALETTE 7,0,.53,0
  1326.   PALETTE 8,.53,.53,.53:PALETTE 9,.53,.6,.53
  1327.   PALETTE 10,.53,.67,.53:PALETTE 11,.53,.73,.53
  1328.   PALETTE 12,.53,.8,.53:PALETTE 13,.53,.87,.53
  1329.   PALETTE 14,.53,.93,.53:PALETTE 15,.53,1,.53
  1330.   RETURN
  1331.  
  1332. Farbpalette:
  1333.   PALETTE 0,0,0,0:PALETTE 1,0,0,0
  1334.   PALETTE 2,.8,.56,.2:PALETTE 3,.8,.73,.73
  1335.   PALETTE 4,.87,.73,0:PALETTE 5,.8,.53,0
  1336.   PALETTE 6,0,.8,0:PALETTE 7,0,.53,0
  1337.   PALETTE 8,0,.53,.53:PALETTE 9,0,.6,.6
  1338.   PALETTE 10,0,.67,.67:PALETTE 11,0,.73,.73
  1339.   PALETTE 12,0,.8,.8:PALETTE 13,0,.87,.87
  1340.   PALETTE 14,0,.93,.93:PALETTE 15,0,1,1
  1341.   RETURN
  1342.   
  1343. Flugfarben:
  1344.   PALETTE 0,0,0,0:PALETTE 1,0,0,0
  1345.   PALETTE 2,.8,.56,.2:PALETTE 3,.8,.73,.73
  1346.   PALETTE 4,.87,.73,0:PALETTE 5,.8,.53,0
  1347.   PALETTE 6,0,.8,0:PALETTE 7,0,.53,0
  1348.   PALETTE  8,.53,.53,.53:PALETTE  9,.53,.53,.6 
  1349.   PALETTE 10,.53,.53,.67:PALETTE 11,.53,.53,.73
  1350.   PALETTE 12,.53,.53,.8 :PALETTE 13,.53,.53,.87
  1351.   PALETTE 14,.53,.53,.93:PALETTE 15,.53,.53,1  
  1352.   RETURN
  1353.  
  1354. Kauffarben:
  1355.   PALETTE 0,0,0,0:PALETTE 1,0,0,0
  1356.   PALETTE 2,.8,.56,.2:PALETTE 3,.8,.73,.73
  1357.   PALETTE 4,.87,.73,0:PALETTE 5,.8,.53,0
  1358.   PALETTE 6,0,.8,0:PALETTE 7,0,.53,0
  1359.   PALETTE  8,.53,.53,.53:PALETTE  9,.6 ,.53,.53
  1360.   PALETTE 10,.67,.53,.53:PALETTE 11,.73,.53,.53
  1361.   PALETTE 12,.8 ,.53,.53:PALETTE 13,.87,.53,.53
  1362.   PALETTE 14,.93,.53,.53:PALETTE 15,1  ,.53,.53
  1363.   RETURN
  1364.  
  1365. Datenlesen:
  1366.   DIM sopreis(16)
  1367.   DIM Planet$(20),zustand$(20),verbindung(20,6),entfernung(20,6),test$(16)
  1368.   DIM dm(20),rasse$(20),ew(20),sprache$(20),waehrung$(20),regf$(20)
  1369.   DIM Planet(20),stelle(6),altstelle(6)
  1370.   DIM twaren$(16),wwaren$(9),uwaren$(14),dwaren$(11),status(6),mtest(16)
  1371.   DIM Inventur(16,6),geld(6),treibstoff(6),frei(6),conr(6)
  1372.   DIM erei$(19,3),erei(19,4)
  1373.   DIM dr1(41),dr2(41),dr3(41),dr4(41)
  1374.   DIM drx(20),dry(20),drr(20),drf(20),drlx(20),drly(20),drna$(20)
  1375.   DIM vrglt$(16),vrgltx(16),vrglty(16)
  1376.   DIM vrglh$( 9),vrglhx( 9),vrglhy( 9)
  1377.   DIM vrglu$(13),vrglux(13),vrgluy(13)
  1378.   DIM vrglw$(11),vrglwx(11),vrglwy(11)
  1379.   DIM firm$(5),vorname$(5),schiffname$(5),hname$(5),zielplanet$(5),zielplanet(5)
  1380.   DIM asdf$(20),asdf(20),ptest(20)
  1381.   
  1382.   FOR q=1 TO 20
  1383.     
  1384.     READ Planet$(q),zustand$(q)
  1385.     Planet(q)=q
  1386.     FOR w=1 TO 6
  1387.       READ verbindung(q,w)
  1388.       READ entfernung (q,w)
  1389.     NEXT
  1390.     READ dm(q),rasse$(q),ew(q),sprache$(q),waehrung$(q),regf$(q)
  1391.   NEXT
  1392.   
  1393.   FOR q=1 TO 16
  1394.     READ twaren$(q)
  1395.     FOR w=1 TO 6
  1396.       Inventur(q,w)=0
  1397.     NEXT w
  1398.   NEXT q
  1399.   
  1400.   FOR q=1 TO 9:READ wwaren$(q):NEXT 
  1401.   FOR q=1 TO 13:READ uwaren$(q):NEXT
  1402.   FOR q=1 TO 11:READ dwaren$(q):NEXT
  1403.   FOR q=1 TO 5
  1404.     geld(q)=2000
  1405.     treibstoff(q)=30
  1406.     Inventur(13,q)=20
  1407.     Inventur(12,q)=25
  1408.     status(q)=1
  1409.     stelle(q)=1
  1410.     frei(q)=20
  1411.     conr(q)=0
  1412.     firm$(q)=""
  1413.     vorname$(q)=""
  1414.     hname$(q)=""
  1415.     schiffname$(q)=""
  1416.     zielplanet(q)=0
  1417.     zielplanet$(q)=""
  1418.   
  1419.   NEXT
  1420.   abc=1
  1421.   FOR e1=1 TO 19
  1422.     FOR e2 =1 TO 3
  1423.       READ erei$(e1,e2)
  1424.     NEXT
  1425.     READ erei(e1,4)
  1426.   NEXT
  1427.   FOR q=1 TO 41
  1428.     READ dr1(q),dr2(q),dr3(q),dr4(q)
  1429.   NEXT
  1430.   FOR q=1 TO 20
  1431.     READ drx(q),dry(q),drr(q),drf(q),drlx(q),drly(q),drna$(q)
  1432.   NEXT
  1433.   FOR q=1 TO 16
  1434.     READ vrglt$(q),vrgltx(q),vrglty(q)
  1435.   NEXT
  1436.   FOR q=1 TO 9
  1437.     READ vrglh$(q),vrglhx(q),vrglhy(q)
  1438.   NEXT
  1439.   FOR q=1 TO 13
  1440.     READ vrglu$(q),vrglux(q),vrgluy(q)
  1441.   NEXT
  1442.   FOR q=1 TO 11
  1443.     READ vrglw$(q),vrglwx(q),vrglwy(q)
  1444.   NEXT
  1445.  
  1446.   FOR q=1 TO 20
  1447.     asdf$(q)=""
  1448.     asdf(q)=0
  1449.     ptest(q)=0
  1450.   NEXT
  1451.   
  1452.   RETURN
  1453.   
  1454. Neuesmenue:
  1455.   REM MENU 1,0,1,""
  1456.   REM MENU 2,0,1,""
  1457.   REM MENU 3,0,1,""
  1458.   REM MENU 4,0,1,""
  1459.   RETURN
  1460.   
  1461. Speichern:
  1462.   LOCATE 6,10
  1463.   PRINT"Wollen Sie abspeichern   J / N  ?"
  1464.   SOUND 200,.1,255,0
  1465.   LOCATE 7,10
  1466.   qfk:
  1467.     speicherfr$=INKEY$
  1468.     IF speicherfr$="" THEN qfk
  1469.   IF UCASE$(speicherfr$)<>"J" THEN RETURN
  1470.   IF speicherfr$="" THEN RETURN
  1471.   LOCATE 10,15  
  1472.   PRINT "Geben Sie den Namen zum Speichern ein ! :";
  1473.   SOUND 200,.1,255,1
  1474.   INPUT speiname$
  1475.   OPEN speiname$ FOR OUTPUT AS 1
  1476.   PRINT#1,spieleranzahl
  1477.   PRINT#1,runde
  1478.   FOR qs=1 TO spieleranzahl
  1479.     PRINT#1,stelle(qs)
  1480.     PRINT#1,hname$(qs)
  1481.     PRINT#1,firm$(qs)
  1482.     PRINT#1,schiffname$(qs)
  1483.     PRINT#1,status(qs)
  1484.     PRINT#1,treibstoff(qs)
  1485.     PRINT#1,frei(qs)
  1486.     PRINT#1,geld(qs)
  1487.     FOR qa=1 TO 16
  1488.       PRINT#1,Inventur(qa,qs)
  1489.     NEXT qa
  1490.   NEXT qs
  1491.   CLOSE 1
  1492. RETURN
  1493.  
  1494. Laden:
  1495.   LOCATE 14,10
  1496.   PRINT"Wollen Sie ein Spiel einladen   J / N  ?"
  1497.   SOUND 200,.1,255,0
  1498.   LOCATE 15,10
  1499.   qpo:
  1500.     ladefr$=INKEY$
  1501.     IF ladefr$="" THEN qpo
  1502.   IF UCASE$(ladefr$)<>"J" THEN RETURN
  1503.   IF ladefr$="" THEN RETURN
  1504.   LOCATE 18,15 
  1505.   PRINT "Geben Sie den Namen zum Laden ein !     :";
  1506.   SOUND 200,.1,255,0
  1507.   INPUT ladename$
  1508.   OPEN ladename$ FOR INPUT AS 1
  1509.   INPUT#1,spieleranzahl
  1510.   INPUT#1,runde
  1511.   FOR qs=1 TO spieleranzahl
  1512.     INPUT#1,stelle(qs)
  1513.     INPUT#1,hname$(qs)
  1514.     INPUT#1,firm$(qs)
  1515.     INPUT#1,schiffname$(qs)
  1516.     INPUT#1,status(qs)
  1517.     INPUT#1,treibstoff(qs)
  1518.     INPUT#1,frei(qs)
  1519.     INPUT#1,geld(qs)
  1520.     FOR qa=1 TO 16
  1521.       INPUT#1,Inventur(qa,qs)
  1522.     NEXT qa
  1523.   NEXT qs
  1524.   CLOSE 1
  1525. RETURN
  1526.     
  1527. Winnerofthegame:
  1528.   GOSUB Bildschirmscroll5
  1529.   PALETTE  8,1,.48,1:PALETTE  9,1,.55,1
  1530.   PALETTE 10,1,.63,1:PALETTE 11,1,.7 ,1
  1531.   PALETTE 12,1,.78,1:PALETTE 13,1,.85,1
  1532.   PALETTE 14,1,.93,1:PALETTE 15,1,1  ,1
  1533.   GOSUB Rahmen2
  1534.   COLOR 3
  1535.   LOCATE 3,7
  1536.   PRINT hname$(yxc);" !!!"
  1537.   COLOR 6
  1538.   LOCATE 6,7
  1539.   PRINT "Herzlichen Glückwunsch !"
  1540.   LOCATE 8,7
  1541.   PRINT "Sie haben es geschafft, nach einer langen Zeit von ";runde;"Jahren,"
  1542.   LOCATE 10,7
  1543.   PRINT "sich ein stattliches Vermögen aufzubauen. Der galaktische Rat von "
  1544.   LOCATE 12,7
  1545.   PRINT "Shamway IV freut sich, Ihnen die Mitgliedermedaille in Gold zu"
  1546.   LOCATE 14,7
  1547.   PRINT "überreichen und Sie in unserem Rat Willkommen zu heißen. Urteilen"
  1548.   LOCATE 16,7
  1549.   PRINT "Sie nun selbst, ob andere Wert sind, aufgenommen zu werden."
  1550.   LOCATE 18,7
  1551.   PRINT "            Wir freuen uns auf ein Wiedersehen in... "
  1552.   LOCATE 21,7
  1553.   COLOR 4
  1554.   PRINT "       ---===   C o s m i c   D e a l e r s   II   ===---"
  1555.   Gamesend1:
  1556.     fas=1:fae=0:faw=-.1:wsa=1
  1557.     GOSUB Gamesend2
  1558.     fas=1:fae=.5:faw=-.1
  1559.     GOSUB Gamesend3
  1560.     fas=0:fae=1:faw=.1:wsa=.5
  1561.     GOSUB Gamesend2
  1562.     fas=.5:fae=0:faw=-.1:wsd=1
  1563.     GOSUB Gamesend3
  1564.     fas=0:fae=1:faw=.1:wsd=1
  1565.     GOSUB Gamesend3
  1566.     GOTO Gamesend1  
  1567.   
  1568.   Gamesend2:
  1569.     FOR q=fas TO fae STEP faw
  1570.       PALETTE  8,q,.48,wsa:PALETTE  9,q,.55,wsa
  1571.       PALETTE 10,q,.63,wsa:PALETTE 11,q,.7 ,wsa
  1572.       PALETTE 12,q,.78,wsa:PALETTE 13,q,.85,wsa
  1573.       PALETTE 14,q,.93,wsa:PALETTE 15,q,1  ,wsa
  1574.       SOUND 440*fae,4,255,0
  1575.       SOUND 880*fas,2,255,1
  1576.       SOUND 1320*fae,3,255,2
  1577.       SOUND 880*fas,2,255,3
  1578.     NEXT
  1579.     RETURN
  1580.   
  1581.   Gamesend3:
  1582.     FOR q=fas TO fae STEP faw
  1583.       PALETTE  8,wsd,.48,q:PALETTE  9,wsd,.55,q
  1584.       PALETTE 10,wsd,.63,q:PALETTE 11,wsd,.7 ,q
  1585.       PALETTE 12,wsd,.78,q:PALETTE 13,wsd,.85,q
  1586.       PALETTE 14,wsd,.93,q:PALETTE 15,wsd,1  ,q
  1587.       SOUND 1320*fae,3,255,0
  1588.       SOUND 880,2,255,1
  1589.       SOUND 440*fae,4,255,2
  1590.       SOUND 880*fas,2,255,3
  1591.     NEXT
  1592.     RETURN
  1593.     
  1594. Credits:
  1595.   LOCATE 3,25:COLOR 4
  1596.   PRINT "C o s m i c     D e a l e r s"
  1597.   SOUND 300,.1,255,0
  1598.   LOCATE 4,25
  1599.   PRINT "-----------------------------"
  1600.   SOUND 300,.1,255,0
  1601.   COLOR 10:LOCATE 6,4
  1602.   PRINT "Lieber Computerfreak !!!    Wenn Ihnen dieses Spiel gefällt, und Sie dazu"
  1603.   SOUND 300,.1,255,1
  1604.   LOCATE 8,4
  1605.   PRINT "beitragen möchten, daß wir auch weiterhin Programme dieser Art veröffent-"
  1606.   SOUND 300,.1,255,2
  1607.   LOCATE 10,4
  1608.   PRINT "lichen, schicken Sie uns doch ein Honorar Ihrer Wahl. Wir freuen uns auch"
  1609.   SOUND 300,.1,255,3
  1610.   LOCATE 12,4
  1611.   PRINT "über Kritik. Für 10.-- DM kopieren wir Ihnen gerne die ausführliche"
  1612.   SOUND 300,.1,255,0
  1613.   LOCATE 14,4
  1614.   PRINT "Anleitung zum Spiel mit nützlichen Tips und Preistafeln der Planeten."
  1615.   SOUND 300,.1,255,1
  1616.   LOCATE 16,4
  1617.   COLOR 2
  1618.   PRINT "Programmiert von"
  1619.   COLOR 6
  1620.   LOCATE 16,24
  1621.   PRINT "  Hans-Peter Eichers           Gunnar Ziwes"
  1622.   SOUND 300,.1,255,2
  1623.   LOCATE 18,24
  1624.   PRINT "  Postfach 32                  Im Schwarzenstein 17"
  1625.   SOUND 300,.1,255,3
  1626.   LOCATE 20,24 
  1627.   PRINT "  5527 Irrel                   5527 Irrel"
  1628.   SOUND 300,.1,255,0
  1629.   LOCATE 22,4
  1630.   COLOR 4
  1631.   PRINT "(c) 1988     S & M  Productions"
  1632.   SOUND 300,.1,255,1
  1633.   GOSUB Warten
  1634.   n=1:GOSUB Bildschirmscroll1
  1635.   RETURN
  1636.  
  1637.   
  1638.   
  1639.       
  1640.             
  1641.     
  1642.